home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / term / x-win.el < prev    next >
Encoding:
Text File  |  1995-08-04  |  1.7 KB  |  49 lines
  1. ;;; x-win.el --- runtime initialization for X windows if initial window system
  2. ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc.
  3. ;; Copyright (C) 1995 Board of Trustees, University of Illinois.
  4.  
  5. ;; Author: FSF
  6. ;; Keywords: terminals
  7.  
  8. ;; This file is part of XEmacs.
  9.  
  10. ;; XEmacs is free software; you can redistribute it and/or modify it
  11. ;; under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; XEmacs is distributed in the hope that it will be useful, but
  16. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18. ;; General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22. ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24. ;;; Commentary:
  25.  
  26. ;; x-win.el: this file is loaded from ../lisp/startup.el when it
  27. ;; recognizes that the initial window system is to be X.  An X device
  28. ;; is created and hooks are set for popping up the initial window.
  29.  
  30. ;;; Code:
  31.  
  32.  
  33. ;;; If you want to change this variable, this is the place you must do it.
  34. ;;; Do not set it to a string containing periods.  X doesn't like that.
  35. ;(setq x-emacs-application-class "Emacs")
  36.  
  37. (require 'pre-x-win)
  38.  
  39. ;; Open the X display when this file is loaded
  40. ;; (Note that the first frame is created later.)
  41. (setq command-line-args-left
  42.       (cdr (device-x-argv-list
  43.         (make-x-device nil (cons (car command-line-args)
  44.                      command-line-args-left)))))
  45.  
  46. (require 'post-x-win)
  47.  
  48. ;;; x-win.el ends here
  49.